home *** CD-ROM | disk | FTP | other *** search
/ Mobiclic 71 / MOBICLIC 71.ISO / mac / DATA / COMMUN / temp0001 / 00227_Script_BOUCLE_ZAPETTE < prev    next >
Text File  |  2004-12-05  |  756b  |  26 lines
  1. global gL_Zap,gJLM_W
  2. -----------------
  3. on exitFrame me
  4.   sprite(23).rect = rect(0,0,202,15)
  5.   --  if the mouseH >= 0 and the mouseH <= gL_Zap[4][1] and the mouseV >= 0 and the mouseV <=gL_Zap[4][2] then
  6.   --    if  gJLM_W  = 1 then
  7.   --      gL_Zap[1].modal = 1
  8.   --    else
  9.   --      gL_Zap[1].modal = 0
  10.   --    end if
  11.   --  else
  12.   --    gL_Zap[1].modal = 0
  13.   --  end if
  14.   if gL_Zap[12] then
  15.     tell the stage
  16.       x0 = the stageLeft + the mouseH
  17.       y0 = the stageTop + the mouseV
  18.       gL_Zap[1].rect = rect(x0 - gL_Zap[13][1], y0- gL_Zap[13][2],x0 + gL_Zap[4][1] - gL_Zap[13][1], y0 + gL_Zap[4][2] - gL_Zap[13][2])
  19.       updatestage
  20.     end tell
  21.   else
  22.   end if
  23.   PATCH4_Os9(gL_Zap[1])
  24.   go the frame
  25. end
  26. ------------------